<script>on mouseDownput GetVolNames () into theMenuItemsget PopUpMenu (theMenuItems, 0, left of me+1, bottom of me)If it > 0 thenput item it of theMenuItems into volNameput cd field "volName" into saveNameput volName into cd field "volName"if FindAllStacks (volName) = 1 then put saveName into cd field "volName"end ifend mouseDown</script>
</part>
<part>
<id>19</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>5</left>
<top>37</top>
<right>219</right>
<bottom>277</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>longNames</name>
<script>on mouseUpPickAFile--put the clicklineend mouseUp</script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>5</left>
<top>33</top>
<right>219</right>
<bottom>281</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>shortNames</name>
<script>on mouseUpput word 2 of the clickLine into lineNumgo stack (line lineNum of cd field longNames)end mouseUp</script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>1</left>
<top>1</top>
<right>58</right>
<bottom>16</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Volume:</name>
<script></script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>32</left>
<top>286</top>
<right>184</right>
<bottom>305</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Update List</name>
<script>on mouseUpput cd field "volName" into vNameget FindAllStacks (card field "volName")end mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>3</id>
<text>QuickTime‚Ñ¢ Beta</text>
</content>
<content>
<layer>card</layer>
<id>10</id>
<text>A Disk At the Opera stackA Zoo in my FloppyABC News InteractiveActions StackAsk Dr. QuickTimeDesktop Physics stackEvery MovieEye StackGestures StackKilimanjaro stack with pixKon and Deeps QuickTime StackMeet the Team StackMouth StackMovie BrowserMovie Making StackNavigable Scenes StackPostcard from LondonPostcard from ParisQTMovieQuickTimeShoppingNetworkVideoShopVideoShop DemoVisual Catalog</text>
</content>
<content>
<layer>card</layer>
<id>19</id>
<text>QuickTime‚Ñ¢ Beta:Movies:Video:Play from Hard Disk:Opera Stack: A Disk At the Opera stackQuickTime‚Ñ¢ Beta:Photos:HyperCard Examples: A Zoo in my Floppy: A Zoo in my FloppyQuickTime‚Ñ¢ Beta:Movies:Video:Play from CD-ROM:Education:News is Interactive:ABC News InteractiveQuickTime‚Ñ¢ Beta:Movies:Video:Play from CD-ROM:Annotation:Actions:Actions StackQuickTime‚Ñ¢ Beta:Movies:Video:Play from CD-ROM:Cool Stuff:Voyager Ephemeral Movies:Ask Dr. QuickTimeQuickTime‚Ñ¢ Beta:Movies:Video:Play from CD-ROM:Science/Engineering:Desktop Physics:Desktop Physics stackQuickTime‚Ñ¢ Beta:Movies:Every MovieQuickTime‚Ñ¢ Beta:Movies:Video:Play from CD-ROM:Annotation:Eye Gestures:Eye StackQuickTime‚Ñ¢ Beta:Movies:Video:Play from CD-ROM:Annotation:Facial Gestures:Gestures StackQuickTime‚Ñ¢ Beta:Photos:HyperCard Examples:Climbing Mt. Kilimanjaro:Kilimanjaro stack with pixQuickTime‚Ñ¢ Beta:Movies:Video:Play from Hard Disk:Silly Shorts:Kon and Deeps QuickTime StackQuickTime‚Ñ¢ Beta:Open Me First!:Video About Box:Meet the Team StackQuickTime‚Ñ¢ Beta:Movies:Video:Play from CD-ROM:Annotation:Mouth Gestures:Mouth StackQuickTime‚Ñ¢ Beta:Movies:Movie BrowserQuickTime‚Ñ¢ Beta:Programming Stuff:XCMDs:Movie Making StackQuickTime‚Ñ¢ Beta:Movies:Video:Play from Hard Disk:Navigable Scenes:Navigable Scenes StackQuickTime‚Ñ¢ Beta:Photos:HyperCard Examples:Postcard from London: Postcard from LondonQuickTime‚Ñ¢ Beta:Photos:HyperCard Examples:Postcard from Paris: Postcard from ParisQuickTime‚Ñ¢ Beta:Programming Stuff:XCMDs:QTMovieQuickTime‚Ñ¢ Beta:Movies:Video:HyperShopping‚Ñ¢: QuickTimeShoppingNetworkQuickTime‚Ñ¢ Beta:Goodies:DiVA VideoShop‚Ñ¢:VideoShop DemoQuickTime‚Ñ¢ Beta:Goodies:DiVA VideoShop‚Ñ¢:VideoShopQuickTime‚Ñ¢ Beta:Goodies:DiVA VideoShop‚Ñ¢:Visual Catalog</text>
</content>
<name></name>
<script>function NamesToIgnorereturn ",Home,Stack Browser,"end NamesToIgnorefunction FoldersToIgnorereturn ",Hypercard Stacks,More Stacks,Help Stacks,"end FoldersToIgnorefunction findStacks volNameput FoldersToIgnore() into FIgnoreput NamesToIgnore() into NIgnoreput getFileNames(volName & ":",true,"STAK") into foldersif "••• Error" is in folders thenglobal savedShortList,savedLongListput savedShortList into cd field shortNamesput savedLongList into cd field longNamesAnswer "This volume/folder " & volName & " does not exist. "¬& "Original list restored."return 1end ifrepeat with i = 1 to the number of lines in foldersset cursor to busyput line i of folders into folderNameif "," is in folderName then next repeatif "," & folderName & "," is in FIgnore then next repeatif findStacks (volName & ":" & folderName) = 1 then return 1end repeatput getFileNames(volName & ":",false,"STAK") into stackNamesrepeat with i = 1 to the number of lines in stackNamesset cursor to busyput line i of stackNames into StackNameif "," is in StackName then next repeatif "," & StackName & "," is in NIgnore then next repeatput StackName & return after cd field shortNamesput volname & ":" & StackName & return after cd field longNamesend repeatreturn 0end findStacksfunction FindAllStacks volNameset lockScreen to trueput volName into vif char 1 of v is "*" thendelete char 1 of vAnswer v & " is a locked volume and is unlikely to have " &¬"changed. Do you really want to update the stack list? " &¬"(This could take a considerable time on a CD ROM)" with¬"Okay" , "Cancel"if it is "Cancel" then return 1end ifglobal savedShortList,savedLongListput cd field shortNames into savedShortListput cd field longNames into savedLongListput empty into cd field shortNamesput empty into cd field longNamesset cursor to busyif FindStacks (v) ≠ 0 then return 1sortEmreturn 0end FindAllStackson sortEmrepeat with i = 1 to the number of lines in cd field shortNamesput line i of cd field shortNames into StackNameif char 1 of StackName = " "then delete char 1 of line i of cd field shortNamesend repeatrepeat with i = 1 to the number of lines in cd field shortNamesput line i of cd field shortNames & "," before line i of cd field longNamesend repeatsort lines of cd field shortNames ascendingsort lines of cd field longNames ascendingrepeat with i = 1 to the number of lines in cd field shortNamesdelete item 1 of line i of cd field longNamesend repeatend sortEm</script>
